home *** CD-ROM | disk | FTP | other *** search
/ Clickx 22 / Clickx 22.iso / DATA / OOo_1.1.4 / f_0021 / sbasic.jar / text / sbasic / guide / sample_code.xml < prev    next >
Encoding:
Extensible Markup Language  |  2004-03-14  |  8.8 KB  |  102 lines
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <html><head><title>Programmavoorbeelden voor Besturingselementen in de Dialoog-editor</title><meta name="filename" content="text/sbasic/guide/sample_code"/><meta name="language" content="en-US"/><help:css-file-link xmlns:help="http://openoffice.org/2000/help"/><!--The CSS style header method for setting styles--><style type="text/css">
  3.  
  4.         table.Tabelle1{
  5.                 }
  6.         span.Tabelle1A{
  7.                 width:2.461cm;}
  8.         span.Tabelle1B{
  9.                 width:15.538cm;}
  10.         td.Tabelle1A1{
  11.                 }
  12.         p.P1{
  13.                 }
  14.         p.P2{
  15.                 }
  16.         span.T1{
  17.                 font-weight:bold;}
  18.         span.fr1{
  19.                 }
  20.         </style></head><body>
  21.    
  22.    
  23.    <p class="P1"/>
  24.    <p class="Head1"><help:key-word value="programmavoorbeelden voor besturingselementen; dialoog-editor" tag="kw68535_1" xmlns:help="http://openoffice.org/2000/help"/><help:to-be-embedded Eid="sample_code" xmlns:help="http://openoffice.org/2000/help"><help:link Id="68535">Programmavoorbeelden voor Besturingselementen in de Dialoog-editor</help:link></help:to-be-embedded></p>
  25.    <p class="Paragraph">Voor deze voorbeelden cre├½ert u een nieuw <help:link Id="68530" xmlns:help="http://openoffice.org/2000/help">dialoogvenster</help:link> met de naam <span class="T1">Dialoog1</span>. In de dialoogeditor cre├½ert u de volgende besturingselementen: een <span class="T1">markeerveld</span> met de naam <span class="T1">MarkeerVeld1</span>, een <span class="T1">titelveld</span> met de naam <span class="T1">Label1</span>, een <span class="T1">drukknop</span> met de naam <span class="T1">DrukKnop1</span>, en een <span class="T1">keuzelijst</span> met de naam <span class="T1">KeuzeLijst1</span>.</p>
  26.    <table><tr class=""><th class="Tabelle1A1" style="text-align:left;"><span class="Tabelle1A">
  27.        <p class="TextInTable"><draw:image draw:style-name="fr1" draw:name="HIND_5" text:anchor-type="paragraph" svg:width="0.847cm" svg:height="0.847cm" draw:z-index="0" xlink:href="65640" xlink:type="simple" xlink:show="embed" xlink:actuate="onLoad" draw:filter-name="GIF - Graphics Interchange" xmlns:draw="http://openoffice.org/2000/drawing" xmlns:text="http://openoffice.org/2000/text" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"/></p>
  28.       </span></th><th class="Tabelle1A1" style="text-align:left;"><span class="Tabelle1B">
  29.        <p class="TextInTable">Gebruik een vaste schrijfwijze (Hoofd-/kleine letters) als u een besturingselement aan een object-variabele verbindt.</p>
  30.       </span></th></tr></table>
  31.    <p class="Head3"><a name="dialogload"/><help:key-word value="voorbeeld; laden van een dialoogvenster" tag="kw68535_6" xmlns:help="http://openoffice.org/2000/help"/>Globale Functie voor het laden van Dialoogvensters</p>
  32.    <p class="PropText">Function LoadDialog(LibName As String, DialogName As String, Optional oLibContainer)</p>
  33.    <p class="PropText">Dim oLib As Object</p>
  34.    <p class="PropText">Dim oLibDialog As Object</p>
  35.    <p class="PropText">Dim oRuntimeDialog As Object</p>
  36.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>If IsMissing(oLibContainer) Then</p>
  37.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oLibContainer = DialogLibraries</p>
  38.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>End If</p>
  39.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oLibContainer.LoadLibrary(LibName)</p>
  40.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oLib = oLibContainer.GetByName(LibName)</p>
  41.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oLibDialog = oLib.GetByName(DialoogName)</p>
  42.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oRuntimeDialog = CreateUnoDialog(oLibDialog)</p>
  43.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>LoadDialog() = oRuntimeDialog</p>
  44.    <p class="PropText">End Function</p>
  45.    <p class="Head3"><help:key-word value="voorbeeld; een dialoogvenster weergeven" tag="kw68535_5" xmlns:help="http://openoffice.org/2000/help"/>Een dialoogvenster weergeven</p>
  46.    <p class="PropText">Rem Globale definitie van variabelen</p>
  47.    <p class="PropText">Dim oDialog1 As Object</p>
  48.    <p class="PropText"/>
  49.    <p class="PropText">Sub StartDialoog1</p>
  50.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oDialog1 = LoadDialog("Standard", "Dialoog1")</p>
  51.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oDialoog1.Execute()</p>
  52.    <p class="PropText">End Sub</p>
  53.    <p class="Head3"><help:key-word value="voorbeeld; lezen of bewerken van eigenschappen van besturingselementen" tag="kw68535_4" xmlns:help="http://openoffice.org/2000/help"/>Lezen of bewerken van eigenschappen van besturingselementen in het programma</p>
  54.    <p class="PropText">Sub Voorbeeld1</p>
  55.    <p class="PropText">oDialog1 = LoadDialog("Standard", "Dialoog1")</p>
  56.    <p class="PropText">Rem Haal dialoogvenster model op</p>
  57.    <p class="PropText">oDialog1Model = oDialoog1.Model</p>
  58.    <p class="PropText">Rem Weergeven tekst van Label1</p>
  59.    <p class="PropText">oLabel1 = oDialoog1.GetControl("Label1")</p>
  60.    <p class="PropText">MsgBox oLabel1.Text</p>
  61.    <p class="PropText">Rem Zet nieuwe tekst voor besturingselement Label1</p>
  62.    <p class="PropText">oLabel1.Text = "Nieuwe bestanden"</p>
  63.    <p class="PropText">Rem Weergeven modeleigenschappen voor het besturingselement MarkeerVeld1</p>
  64.    <p class="PropText">oCheckBox1Model = oDialog1Model.MarkeerVeld1</p>
  65.    <p class="PropText">MsgBox oCheckBox1Model.Dbg_Properties</p>
  66.    <p class="PropText">Rem Stelt nieuwe statue in voor MarkeerVeld1 voor model van besturingselement</p>
  67.    <p class="PropText">oCheckBox1Model.State = 1</p>
  68.    <p class="PropText">Rem Weergeven modeleigenschappen voor besturingselement DrukKnop1</p>
  69.    <p class="PropText">oCMD1Model = oDialog1Model.DrukKnop1</p>
  70.    <p class="PropText">MsgBox oCMD1Model.Dbg_Properties</p>
  71.    <p class="PropText">Rem Weergeven eigenschappen van besturingselement DrukKnop1</p>
  72.    <p class="PropText">oCMD1 = oDialoog1.GetControl("DrukKnop1")</p>
  73.    <p class="PropText">MsgBox oCMD1.Dbg_Properties</p>
  74.    <p class="PropText">Rem Dialoogvenster uitvoeren</p>
  75.    <p class="PropText">oDialog1.Execute()</p>
  76.    <p class="PropText">End Sub</p>
  77.    <p class="PropText"/>
  78.    <p class="Head3"><help:key-word value="voorbeeld; toevoegen item aan Keuzelijst" tag="kw68535_3" xmlns:help="http://openoffice.org/2000/help"/>Toevoegen van een item aan een keuzelijst</p>
  79.    <p class="PropText">Sub ToevoegenItem</p>
  80.    <p class="PropText">oDialog1 = LoadDialog("Standard", "Dialoog1")</p>
  81.    <p class="PropText">Rem Voegt een nieuw item toe aan de keuzelijst</p>
  82.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oDialog1Model = oDialoog1.Model</p>
  83.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oListBox = oDialoog1.GetControl("KeuzeLijst1")</p>
  84.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>Dim iCount As Integer</p>
  85.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>iCount = oListbox.ItemCount</p>
  86.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oListbox.additem("Nieuw Item" & iCount,0)</p>
  87.    <p class="PropText">End Sub</p>
  88.    <p class="Head3"><help:key-word value="voorbeeld; verwijderen van een item uit keuzelijst" tag="kw68535_2" xmlns:help="http://openoffice.org/2000/help"/>Verwijderen van een item uit een keuzelijst</p>
  89.    <p class="PropText">Sub VerwijderItem</p>
  90.    <p class="PropText">oDialog1 = LoadDialog("Standard", "Dialoog1")</p>
  91.    <p class="PropText">Rem Verwijder het eerste item uit de keuzelijst</p>
  92.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oDialog1Model = oDialoog1.Model</p>
  93.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oListBox = oDialoog1.GetControl("KeuzeLijst1")</p>
  94.    <p class="PropText"><text:tab-stop xmlns:text="http://openoffice.org/2000/text"/>oListbox.removeitems(0,1)</p>
  95.    <p class="PropText">End Sub</p>
  96.    <p class="P2">Gerelateerde onderwerpen</p>
  97.    <p class="ParaList"><help:embedded Id="68536" Eid="control_properties" xmlns:help="http://openoffice.org/2000/help"/></p>
  98.    <p class="ParaList"><help:embedded Id="68530" Eid="create_dialog" xmlns:help="http://openoffice.org/2000/help"/></p>
  99.    <p class="ParaList"><help:embedded Id="68537" Eid="insert_control" xmlns:help="http://openoffice.org/2000/help"/></p>
  100.    <p class="ParaList"><help:embedded Id="68538" Eid="show_dialog" xmlns:help="http://openoffice.org/2000/help"/></p>
  101.    <p class="ParaList"/>
  102.   </body></html>